home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / cpucheck.zip / CHIPS.PAS < prev    next >
Pascal/Delphi Source File  |  1990-04-30  |  566b  |  30 lines

  1. {
  2.  CHIPS.PAS - Unit to determine CPU and math coprocessor chip types
  3.  installed in a PC
  4.  Version 1.0, 03-12-90
  5.  Version 1.1, 04-21-90, add 80486 detection
  6.  After C-callable function chips() by Pat Shea.
  7.  See CHIPTYPE.ASM for more information.
  8.  
  9.   (C)Copyright 1990 Spirit of Performance, Inc.
  10.   All rights reserved.
  11.   Unauthorized use or copying prohibited by law.
  12.  
  13. }
  14.  
  15. {$R-,S-,I-,D+,F-,V-,B-,N-,L+ }
  16.  
  17. UNIT Chips;
  18.  
  19. INTERFACE
  20.  
  21. function ChipType : integer;
  22.  
  23. IMPLEMENTATION
  24.  
  25. {$L d:\tpsource\ChipType.obj }
  26.  
  27. function ChipType; external;
  28.  
  29. END.
  30.